home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
EXTRPTH$.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
2KB
|
52 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME EXTRPTH$.DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB01.INC"
$INCLUDE "DAS-NB02.INC"
COLOR 7,0
CLS
? "┌────────────────────────────────────────────────────────
? "│ fEXTACTpath$ (FileSpec$)
? "│ fEXTRACText$ (FileSpec$)
? "│ fSTRIPpath$ (FileSpec$)
? "│ fSTRIPext$ (FileSpec$)
? "├────────────────────────────────────────────────────────────────
? "│ These 4 little functions provide some ready made file name parsing.
? "│ There isn't much to them so we'll just get on with it.
? "└──────────────────────────────────────────────────────────────────────
?
FileSpec$ = "C:\PBL\NB02\UNT\STRPEXT$.UNT"
PRINT "FileSpec$ = "; CHR$(34); FileSpec$; CHR$(34)
PRINT
F$ = fEXTRACTpath$( FileSpec$ )
PRINT "fEXTRACTpath$( FileSpec$ ) returns "; CHR$(34); F$; CHR$(34)
F$ = fEXTRACText$( FileSpec$ )
PRINT "fEXTRACText$ ( FileSpec$ ) returns "; CHR$(34); F$; CHR$(34)
F$ = fSTRIPpath$( FileSpec$ )
PRINT "fSTRIPpath$ ( FileSpec$ ) returns "; CHR$(34); F$; CHR$(34)
F$ = fSTRIPext$( FileSpec$ )
PRINT "fSTRIPext$ ( FileSpec$ ) returns "; CHR$(34); F$; CHR$(34)